COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE READR(NNW)
C00003 ENDMK
C⊗;
	SUBROUTINE READR(NNW)
	COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
	1 DEBUG,T(1),XP(1),YP(1),PARMAX,
	1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND

	DIMENSION LIST5(0/1000),LIST(6,1000)
	COMMON /LISTC/ LIST,LIST5,NEWEND,LO
	INTEGER FLINE,RSIDE,FILEN,FILE
	COMMON/JOMMAC/ILINE,JLINE,KSIDE,MSIDE,NEWZ

CC	LOGICAL FUNCTION ADMISS
CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
	READ(1) FILEN,RR,ILINE,JLINE,KSIDE,MSIDE,NEWZ,
	1 ((LIST(I,N),I=1,6),N=1,NEWZ)
	IF(NEWZ.GE.1000)GO TO 252
	DO 335 I=NEWZ*6+1,6000
335	LIST(I,1)=0
252	NEWEND=NEWZ
	END